home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / util / boot / AStart33.lha / AStart / s / alternate-startup
Text File  |  1996-08-19  |  2KB  |  80 lines
  1. ; $VER: alternate-startup based on startup-sequence 39.9 (9.8.92)
  2.  
  3. C:SetPatch QUIET
  4. FailAt 21
  5. C:SetAltMode
  6.  
  7. Makedir >NIL: RAM:Clipboards RAM:T
  8.  
  9. If `C:GetF "ENVArc:AStart_T"` NOT EQ "1"
  10.   Assign >NIL: T: RAM:T
  11. Else
  12.   Assign >NIL: T: SYS:T
  13. EndIf
  14.  
  15. Assign >NIL: CLIPS: RAM:Clipboards
  16.  
  17. If `C:GetF "ENVArc:AStart_ENVArc"` NOT EQ "0"
  18.   Assign ENV: ENVArc:
  19. Else
  20.   C:Copy >NIL: ENVARC: RAM:ENV ALL NOREQ
  21.   Assign ENV: RAM:ENV
  22. EndIf
  23.  
  24. Assign >NIL: REXX: S:
  25. Assign >NIL: PRINTERS: DEVS:Printers
  26. Assign >NIL: KEYMAPS: DEVS:Keymaps
  27. Assign >NIL: LOCALE: SYS:Locale
  28. Assign >NIL: LIBS: SYS:Classes ADD
  29. Assign >NIL: HELP: LOCALE:Help DEFER
  30.  
  31. If `C:GetF ENVArc:AStart_DOSDrivers` EQ "1"
  32.   BindDrivers
  33.   C:Mount >NIL: DEVS:DOSDrivers/~(#?.info)
  34. EndIf
  35.  
  36. If `C:GetF ENVArc:AStart_Monitors` EQ "1"
  37.   IF EXISTS DEVS:Monitors
  38.     IF EXISTS DEVS:Monitors/VGAOnly
  39.       DEVS:Monitors/VGAOnly
  40.     EndIF
  41.  
  42.     C:List >NIL: DEVS:Monitors/~(#?.info|VGAOnly) TO T:M LFORMAT "DEVS:Monitors/%s"
  43.     Execute T:M
  44.     C:Delete >NIL: T:M
  45.   EndIF
  46. EndIf
  47.  
  48. If `C:GetF ENVArc:AStart_CIA` EQ "1"
  49.   C:IPrefs
  50.   C:ConClip
  51. EndIf
  52.  
  53. If `C:GetF ENVArc:AStart_DT` EQ "1"
  54.   C:AddDataTypes REFRESH QUIET
  55. EndIf
  56.  
  57. Path >NIL: RAM: C: SYS:Utilities SYS:Rexxc SYS:System S: SYS:Prefs SYS:WBStartup SYS:Tools SYS:Tools/Commodities
  58.  
  59. Set astartusr `C:GetF ENVArc:AStart_UserStartup`
  60. If "$astartusr" NOT EQ "0"
  61.  
  62.   IF "$astartusr" NOT EQ "1"
  63.     Execute S:User-Startup
  64.   Else
  65.     IF EXISTS S:User-Startup
  66.       C:ConvertX S:User-startup T:User-startup "((# (Assign|If|EndIf|Lab|Skip|Else)#?)|(#?SAFETOEXECUTE#?))"
  67.       Execute T:User-startup
  68.       Delete T:User-Startup QUIET
  69.     EndIF
  70.   EndIf
  71.  
  72. EndIf
  73.  
  74. IF `C:GetF ENVArc:AStart_Debug` EQ "1"
  75.   C:LoadWB -debug
  76. Else
  77.   C:LoadWB
  78. EndIf
  79. EndCLI >NIL:
  80.